home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Libraries / Graphic Elements 3 / GEDemo / Meter.c < prev    next >
Text File  |  1995-08-28  |  959b  |  42 lines
  1. /*
  2.     Meter.h
  3.     
  4.     System Use meter for GEDemo
  5.     
  6.     Copyright 1993 by Al Evans. All rights reserved.
  7.     
  8.     11/5/93
  9. */
  10.  
  11. #include "Meter.h"
  12.  
  13. Boolean LoadUsageMeterScene(GEWorldPtr world)
  14. {
  15.     GrafElPtr        meterBkg, thisElement;
  16.     
  17.     //Get meter bkg picture
  18.     meterBkg = NewBasicPICT(world, meterBkgID, meterPlane, rMeterBkg,
  19.                                 transparent, meterLeft, meterTop);
  20.     if (meterBkg == nil) return false;
  21.     
  22.     //Get Indicator picture
  23.     thisElement = NewScrollingGraphic(world, meterIndID, indPlane, rMeterInd,
  24.                                 srcCopy, indLeft, indTop);
  25.     if (thisElement == nil) return false;
  26.     
  27.     //Show only top 10 pixels of indicator
  28.     thisElement->animationRect.bottom = thisElement->animationRect.top + ScaleToWorld(world, 10);
  29.  
  30.     //Connect indicator to bkg
  31.     meterBkg->slaveGrafEl = thisElement;
  32.     return true;
  33. }
  34.  
  35. pascal void SetMeterReading(GEWorldPtr world, short percent)
  36. {
  37.     if (percent < 0) percent = 0;
  38.     if (percent > 100) percent = 100;
  39.     
  40.     SetScroll(world, meterIndID, 0, percent);
  41. }
  42.